## Warning: package 'tidyverse' was built under R version 3.6.3
## -- Attaching packages ------------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.2
## v tidyr   1.1.2     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.4.0
## Warning: package 'ggplot2' was built under R version 3.6.3
## Warning: package 'tibble' was built under R version 3.6.3
## Warning: package 'tidyr' was built under R version 3.6.3
## Warning: package 'purrr' was built under R version 3.6.3
## Warning: package 'dplyr' was built under R version 3.6.3
## -- Conflicts ---------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
## Warning: package 'maps' was built under R version 3.6.3
## 
## Attaching package: 'maps'
## The following object is masked from 'package:purrr':
## 
##     map
## Warning: package 'mapdata' was built under R version 3.6.3
## Warning: package 'lubridate' was built under R version 3.6.3
## 
## Attaching package: 'lubridate'
## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union
## Warning: package 'viridis' was built under R version 3.6.3
## Loading required package: viridisLite
## Warning: package 'viridisLite' was built under R version 3.6.3
## Warning: package 'wesanderson' was built under R version 3.6.3
## Parsed with column specification:
## cols(
##   FIPS = col_double(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_character(),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character()
## )
## Warning: Removed 54 rows containing missing values (geom_point).

## Parsed with column specification:
## cols(
##   FIPS = col_character(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_datetime(format = ""),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character()
## )

## Parsed with column specification:
## cols(
##   FIPS = col_double(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_datetime(format = ""),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character(),
##   Incidence_Rate = col_double(),
##   `Case-Fatality_Ratio` = col_double()
## )

## Parsed with column specification:
## cols(
##   FIPS = col_double(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_character(),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character()
## )
## `summarise()` ungrouping output (override with `.groups` argument)

## Parsed with column specification:
## cols(
##   FIPS = col_double(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_datetime(format = ""),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character(),
##   Incidence_Rate = col_double(),
##   `Case-Fatality_Ratio` = col_double()
## )
## `summarise()` ungrouping output (override with `.groups` argument)
## Warning: Transformation introduced infinite values in discrete y-axis

## Parsed with column specification:
## cols(
##   FIPS = col_double(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_character(),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character()
## )
## `summarise()` ungrouping output (override with `.groups` argument)

## # A tibble: 14 x 2
##    Admin2              Confirmed
##    <chr>                   <dbl>
##  1 barnstable                283
##  2 berkshire                 213
##  3 bristol                   424
##  4 dukes and nantucket        12
##  5 essex                    1039
##  6 franklin                   85
##  7 hampden                   546
##  8 hampshire                 102
##  9 middlesex                1870
## 10 norfolk                   938
## 11 plymouth                  621
## 12 suffolk                  1896
## 13 unassigned                270
## 14 worcester                 667
## Warning: package 'plotly' was built under R version 3.6.3
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
## Warning: `group_by_()` is deprecated as of dplyr 0.7.0.
## Please use `group_by()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.
## Parsed with column specification:
## cols(
##   FIPS = col_double(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_character(),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character()
## )
## `summarise()` ungrouping output (override with `.groups` argument)
## Parsed with column specification:
## cols(
##   FIPS = col_double(),
##   Admin2 = col_character(),
##   Province_State = col_character(),
##   Country_Region = col_character(),
##   Last_Update = col_datetime(format = ""),
##   Lat = col_double(),
##   Long_ = col_double(),
##   Confirmed = col_double(),
##   Deaths = col_double(),
##   Recovered = col_double(),
##   Active = col_double(),
##   Combined_Key = col_character(),
##   Incidence_Rate = col_double(),
##   `Case-Fatality_Ratio` = col_double()
## )
## `summarise()` ungrouping output (override with `.groups` argument)
##  [1] "Aruba"                              
##  [2] "Anguilla"                           
##  [3] "American Samoa"                     
##  [4] "Antarctica"                         
##  [5] "French Southern and Antarctic Lands"
##  [6] "Antigua"                            
##  [7] "Barbuda"                            
##  [8] "Saint Barthelemy"                   
##  [9] "Bermuda"                            
## [10] "Ivory Coast"                        
## [11] "Democratic Republic of the Congo"   
## [12] "Republic of Congo"                  
## [13] "Cook Islands"                       
## [14] "Cape Verde"                         
## [15] "Curacao"                            
## [16] "Cayman Islands"                     
## [17] "Czech Republic"                     
## [18] "Canary Islands"                     
## [19] "Falkland Islands"                   
## [20] "Reunion"                            
## [21] "Mayotte"                            
## [22] "French Guiana"                      
## [23] "Martinique"                         
## [24] "Guadeloupe"                         
## [25] "Faroe Islands"                      
## [26] "Micronesia"                         
## [27] "UK"                                 
## [28] "Guernsey"                           
## [29] "Greenland"                          
## [30] "Guam"                               
## [31] "Heard Island"                       
## [32] "Isle of Man"                        
## [33] "Cocos Islands"                      
## [34] "Christmas Island"                   
## [35] "Chagos Archipelago"                 
## [36] "Jersey"                             
## [37] "Siachen Glacier"                    
## [38] "Kiribati"                           
## [39] "Nevis"                              
## [40] "Saint Kitts"                        
## [41] "South Korea"                        
## [42] "Saint Martin"                       
## [43] "Marshall Islands"                   
## [44] "Macedonia"                          
## [45] "Myanmar"                            
## [46] "Northern Mariana Islands"           
## [47] "Montserrat"                         
## [48] "New Caledonia"                      
## [49] "Norfolk Island"                     
## [50] "Niue"                               
## [51] "Bonaire"                            
## [52] "Sint Eustatius"                     
## [53] "Saba"                               
## [54] "Nauru"                              
## [55] "Pitcairn Islands"                   
## [56] "Palau"                              
## [57] "Puerto Rico"                        
## [58] "North Korea"                        
## [59] "Madeira Islands"                    
## [60] "Azores"                             
## [61] "Palestine"                          
## [62] "French Polynesia"                   
## [63] "South Sandwich Islands"             
## [64] "South Georgia"                      
## [65] "Saint Helena"                       
## [66] "Ascension Island"                   
## [67] "Solomon Islands"                    
## [68] "Saint Pierre and Miquelon"          
## [69] "Swaziland"                          
## [70] "Sint Maarten"                       
## [71] "Turks and Caicos Islands"           
## [72] "Turkmenistan"                       
## [73] "Tonga"                              
## [74] "Trinidad"                           
## [75] "Tobago"                             
## [76] "Taiwan"                             
## [77] "USA"                                
## [78] "Vatican"                            
## [79] "Grenadines"                         
## [80] "Saint Vincent"                      
## [81] "Virgin Islands"                     
## [82] "Vanuatu"                            
## [83] "Wallis and Futuna"                  
## [84] "Samoa"